10 REM KALORIENTABELLE ==========64
20 REM (P) 87 COMMODORE WELT TEAM =
30 REM ============================
40 REM ORIGINAL BY PERCY          =
50 REM & EGON KWAPIL              =
60 REM                            =
70 REM VERSION 2.0  40Z/ASCII     =
80 REM C-64 + 1530/1541/1570/1571 =
90 REM ============================
100 X=42:GOSUB4190:PRINTCL$:GOSUB220
110 POKE53280,0:POKE53281,0:POKE53272,23
120 DIMSP$(500),S$(500),D$(100)
130 REM ***************************
140 REM *************** UMRANDUNG *
150 REM ***************************
160 PRINTTAB(1);RD$RN$CD$KL$
170 PRINTCHR$(30);TAB(14);CD$CD$CD$CD$"([195]) BY [208]ERCY"
180 PRINTTAB(14);CD$"[197]GON  [203]WAPIL"
190 PRINTTAB(13);CD$"[195][207][205][205][207][196][207][210][197][160][215][197][204][212]"
200 FORI=1TO3000:NEXT
210 GOTO340
220 FORN=1024TO1063:POKEN,X:NEXT
230 FORN=55296TO55335:POKEN,6:NEXT
240 FORN=1063TO2023STEP40:POKEN,X:NEXT
250 FORN=55335TO56295STEP40:POKEN,6:NEXT
260 FORN=1984TO2023:POKEN,X:NEXT
270 FORN=56256TO56295:POKEN,6:NEXT
280 FORN=1984TO1024STEP-40:POKEN,X:NEXT
290 FORN=56256TO55296STEP-40:POKEN,6:NEXT
300 FORI=1TO150:NEXT:RETURN
310 REM ***************************
320 REM ************ BESCHREIBUNG *
330 REM ***************************
340 PRINTKS$
350 PRINT" [205]IT DIESEM [208]ROGRAMM KOENNEN [211]IE DEN"
360 PRINT" [203]ALORIENGEHALT UND DEN [197]IWEISS-"
370 PRINT" GEHALT DEN [198]ETTGEHALT UND DEN"
380 PRINT" [203]OHLENHYDRATEGEHALT VERSCHIEDENER"
390 PRINT" [211]PEISEN ERMITTELN."
400 PRINT" [193]USSERDEM KOENNEN SIE NACH [197]INGABE DER"
410 PRINT" [204]EBENSMITTLELMENGE, DIE [211]IE ZU [211]ICH"
420 PRINT" GENOMMEN HABEN, [201]HRE PERSOENLICHE"
430 PRINT" [193]USWERTUNG ABRUFEN."
440 PRINT" [196]ADURCH WIRD ES [201]HNEN MOEGLICH, [201]HRE"
450 PRINT" [197]RNAEHRUNG IN DER [218]UKUNFT DEN"
460 PRINT" BENOETIGTEN [205]ENGEN ANZUPASSEN.":PRINT:PRINT
470 PRINTWT$;WE$:GOSUB4400
480 POKE198,0:WAIT198,1
490 IFPEEK(203)=14THEN1830
500 PRINTKS$
510 PRINT"  [202]EDER ZWEITE [194]UNDESBUERGER, EGAL OB"
520 PRINT"  [215]EIBLICH ODER [205]AENNLICH, MOECHTE"
530 PRINT"  GERN EIN PAAAR [203]ILO LEICHTER SEIN,"
540 PRINT"  ABER TROTZDEM AUF [199]ENUSS, [198]REUDE UND"
550 PRINT"  [211]PASS BEIM [197]SSEN NICHT VERZICHTEN"
560 PRINT"  [196]IESE GUTEN [214]ORSAETZE SCHEITERN"
570 PRINT"  JEDOCH MEISSTENS AM [206]ICHT-[194]ESCHEID-"
580 PRINT"  [215]ISSEN UEBER DEN [197]NERGIE- UND [206]AEHR-"
590 PRINT"  STOFFGEHALT DER [206]AHRUNGSMITTEL."
600 PRINT"  [196]ER [213]MGANG MIT DIESEM [208]ROGRAMM SOLL"
610 PRINT"  [201]HNEN NUN DABEI HELFEN."
620 PRINT"  [196]IE [215]ERTE SIND PORTIONSWEISE ZU"
630 PRINT"  VERSTEHEN, DAS HEISST PRO [208]ORTION,"
640 PRINT"  [211]TUECK, [211]CHEIBE, [212]ASSE, [199]LAS,"
650 PRINT"  [197]SSLOEFFEL ODER [203]AFFEELOEFFEL.":PRINT
660 PRINTWT$;WE$:GOSUB4400
670 POKE198,0:WAIT198,1
680 IFPEEK(203)=14 THEN1830
690 PRINTKS$
700 PRINTYE$" [215]AS MAN UEBER [203]ALORIEN WISSEN SOLLTE !"
710 PRINTRD$" [203]ILOKALORIEN ([203]CAL) STAMMT VON DEM"
720 PRINT" LATEINISCHEN [215]ORT 'CALOR' UND BEDEUTET"
730 PRINT" [215]AERME. [197]INE [203]ILOKALORIE ([203]CAL)"
740 PRINT" IST DIEJENIGE [215]AERMEMENGE, DIE"
750 PRINT" NOTWENDIG IST UM 1 [203]G [215]ASSER"
760 PRINT" VON 14.5 [195] AUF 15.5 [195] ZU ERWAERMEN.":PRINT:PRINT
770 PRINTWT$;WE$
780 POKE198,0:WAIT198,1
790 IFPEEK(203)=14THEN1830
800 POKE198,0:GOTO1830
810 REM ***************************
820 REM ************ DATENEINGABE *
830 REM ***************************
840 PRINTKS$
850 GOSUB4400:PRINTCY$"[201]HR [193]LTER"
860 X=4:Y=20:GOSUB4490:L=2:Z=1:R=1:GOSUB4500
870 AL=VAL(E$):PRINT:GOSUB4400
880 PRINT"[201]HR [199]EWICHT IN [203]G.":X=6:Y=20:GOSUB4490:L=3:Z=1:R=2:GOSUB4500
890 KG=VAL(E$):IFAL<10THEN1040
900 REM ***************************
910 REM ********* WERTZUWEISUNGEN *
920 REM ***************************
930 IFKG<55THENKB=1600:GOTO1070
940 IFKG<60THENKB=1800:GOTO1070
950 IFKG<65THENKB=1950:GOTO1070
960 IFKG<70THENKB=2100:GOTO1070
970 IFKG<75THENKB=2250:GOTO1070
980 IFKG<80THENKB=2400:GOTO1070
990 IFKG<85THENKB=2600:GOTO1070
1000 IFKG<90THENKB=2750:GOTO1070
1010 IFKG<95THENKB=2900:GOTO1070
1020 IFKG<100THENKB=2900:GOTO1070
1030 IFKG>100THENKB=2500:GOTO1070
1040 IFAL<4THENKB=KG*80:GOTO1070
1050 IFAL<7THENKB=KG*75:GOTO1070
1060 IFAL<10THENKB=KG*65
1070 EB=INT(KG/0.9):HB=KG*5:PRINT:FB=KG
1080 REM **************************
1090 REM ********* BEDARFSAUSGABE *
1100 REM **************************
1110 PRINTCD$CD$CD$CD$RD$"[201]HR [203]ALORIENBEDARF   =";KB;" [212]AG"CD$
1120 PRINT"[201]HR [198]ETTBEDARF       =";FB;"[199]RAMM/[212]AG"CD$
1130 PRINT"[201]HR [197]IWEISSBEDARF    =";EB;"[199]RAMM/[212]AG"CD$
1140 PRINT"[201]HR [203]OHL. [200]YDR. [194]ED. =";HB;"[199]RAMM/[212]AG"CD$
1150 PRINTCD$CD$CD$CD$WT$
1160 POKE198,0:WAIT198,1:GOSUB4400:POKE198,0
1170 GOTO2370
1180 REM **************************
1190 REM ******** DIRECTORY LESEN *
1200 REM **************************
1210 FORI=0TO100:D$(I)="":NEXT
1220 PRINTF1$S1$"[203]ALORIEN-[201]NALTSVERZEICHNIS      "CD$
1230 CO=0
1240 PRINTCY$;
1250 OPEN1,8,0,"$0"
1260 GET#1,A$,B$
1270 GET#1,A$,B$
1280 GET#1,A$,B$
1290 C=0
1300 IFA$<>""THENC=ASC(A$)
1310 IFB$<>""THENC=C+ASC(B$)*256
1320 GET#1,B$:IFST<>0THEN1400
1330 IFB$<>CHR$(47)THEN1320
1340 GET#1,B$:IFB$<>CHR$(34)THENPRINTTAB(4);B$;:D$(CO)=D$(CO)+B$:GOTO1340
1350 GET#1,B$:IFB$=CHR$(32)THEN1350
1360 PRINTTAB(19);:C$=""
1370 C$=C$+B$:GET#1,B$:IFB$<>""THEN1370
1380 PRINTRD$LEFT$(C$,3)
1390 IFST=0THENPRINTCY$;:CO=CO+1:GOTO1270
1400 PRINT:CLOSE1
1410 CLOSE1:GOTO1420
1420 PRINTWT$;WE$
1430 POKE198,0:WAIT198,1
1440 IFPEEK(203)=14THEN4600
1450 POKE198,0:GOTO1830
1460 IFQ>1000THENFORA=1TO35:PRINTFU$:NEXT:GOTO1830
1470 REM **************************
1480 REM *********** DATENEINGABE *
1490 REM **************************
1500 PRINTF1$S1$"[203]ALORIENDATENEINGABE"S2$CD$CD$
1510 PRINTCD$CY$"[206]AME       =>"CD$
1520 GOSUB4400:X=4:Y=17:GOSUB4490:L=15:R=1:Z=0:GOSUB4500
1530 SP$=E$
1540 PRINTCD$CY$"KALORIEN   =>"CD$
1550 GOSUB4400:X=6:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500
1560 KA$=E$
1570 PRINTCD$CY$"[197]IWEISS    =>"CD$
1580 GOSUB4400:X=8:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500
1590 EW$=E$
1600 PRINTCD$CY$"[198]ETT       =>"CD$
1610 GOSUB4400:X=10:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500
1620 FE$=E$
1630 PRINTCD$CY$"[203]OHLEHYDRATE  =>"CD$
1640 GOSUB4400:X=12:Y=17:GOSUB4490:L=3:R=1:Z=1:GOSUB4500
1650 KH$=E$
1660 GOSUB2900
1670 TE$=LEFT$(SP$+"             ",15)+RIGHT$("      "+KA$,4)
1680 TE$=TE$+" "+RIGHT$("   "+EW$,3)
1690 TE$=TE$+" "+RIGHT$("   "+FE$,3)
1700 TE$=TE$+" "+RIGHT$("   "+KH$,3)
1710 TE$=TE$+" "+RIGHT$("  "+AR$,2)
1720 PRINTCD$YE$RN$" [197]INGABE KORREKT (J/N) "
1730 X=15:Y=24:GOSUB4490:Z=0:L=1:R=0:GOSUB4500
1740 A$=E$:IFA$="N"THEN1490
1750 IFA$="J"THENQ=Q+1:SP$(Q)=TE$:TE$="":GOTO1770
1760 PRINTCU$CU$CU$:GOTO1720
1770 PRINTCU$CU$:PRINTWT$WE$:POKE198,0:WAIT198,1
1780 IFPEEK(203)=14THEN1830
1790 POKE198,0:GOTO1460
1800 REM **************************
1810 REM ************* HAUPTMENUE *
1820 REM **************************
1830 PRINTF1$S1$"[203]ALORIENTABELLE"S2$CD$CD$
1840 PRINTCD$CD$CY$"(1)      [201]NHALTSVERZEICHNIS"CD$
1850 PRINT"(2)         [203]ALORIEN LADEN"CD$
1860 PRINT"(3)         [203]ALORIEN SPEICHERN"CD$
1870 PRINT"(4)         [203]ALORIEN EINGEBEN"CD$
1880 PRINT"(5)         [203]ALORIEN LISTEN"CD$
1890 PRINT"(6)         [208]ROGRAMM [197]NDE"CD$CD$
1900 PRINTGR$RN$"[201]HRE [197]INGABE [194]ITTE"
1910 GOSUB4400:X=18:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500
1920 EE=VAL(E$):IF(EE<1)OR(EE>6)THEN1830
1930 ONVAL(E$)GOTO1220,2060,1940,1490,2250,4600
1940 REM **************************
1950 REM ***** KALORIEN SPEICHERN *
1960 REM **************************
1970 IFQ<1THEN1830
1980 PRINTF1$CD$S1$"[203]ALORIEN [211]PEICHERN"S2$CD$CD$
1990 PRINTCD$CY$"[193]BSPEICHERN UNTER"
2000 GOSUB4400:X=5:Y=19:GOSUB4490:L=10:R=0:Z=0:GOSUB4500
2010 AB$="@:KALO/"+E$+",S,W"
2020 OPEN1,8,1,AB$
2030 PRINT#1,STR$(Q);CHR$(13);:PRINTYE$CD$CD$"[196]ATENMENGE = ";Q
2040 FORW=1TOQ:PRINT#1,SP$(W);CHR$(13);:NEXT
2050 CLOSE1:GOTO1830
2060 REM **************************
2070 REM ********* KALORIEN LADEN *
2080 REM **************************
2090 PRINTF1$CD$S1$"[203]ALORIEN LADEN"S2$CD$CD$
2100 FORI=0TOCO:PRINTTAB(4);D$(I):NEXT
2110 CLR:DIMSP$(500),S$(500),D$(100):GOSUB4190
2120 PRINTCD$CY$"[199]ESPEICHERT UNTER"CD$CD$
2130 GOSUB4400:X=PEEK(214)-3 :Y=19:GOSUB4490:L=10:R=0:Z=0:GOSUB4500
2140 SE$=E$
2150 AB$="KALO/"+SE$+",S,R"
2160 OPEN1,8,0,AB$
2170 INPUT#1,X$:Q=VAL(X$):PRINTYE$CD$CD$"[196]ATENMENGE =";Q
2180 IFQ<1THENPRINTKD$:FORKD=1TO1500:NEXT:GOTO2210
2190 FORW=1TOQ:INPUT#1,SP$(W):NEXT
2200 IFB=1THENCLOSE1:RETURN
2210 CLOSE1:GOTO4010
2220 REM **************************
2230 REM *********** UNTERMENUE 1 *
2240 REM **************************
2250 PRINTCL$RD$RN$"[203]ALORIENTABELLE"CD$CD$
2260 PRINTCD$CD$CY$"(1)   [203]ALORIEN [193]USWERTEN"CD$
2270 PRINT"(2)   [203]ALORIEN [211]ORTIEREN "CD$
2280 PRINT"(3)   [203]ALORIEN [193]UFLISTEN"CD$
2290 PRINT"(4)   [197]NDE"CD$
2300 PRINTYE$RN$"[201]HRE [197]INGABE [194]ITTE"
2310 GOSUB4400:X=13:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500
2320 EE=VAL(E$):IF(EE<1)OR(EE>4)THEN2250
2330 ONVAL(E$)GOTO810,3190,4010,1830
2340 REM **************************
2350 REM ***** AUSWERTUNGSEINGABE *
2360 REM **************************
2370 IFSE$<>"TABELLE"THENSE$="TABELLE":B=1:GOSUB2150
2380 B=2:GOSUB2900:AU=0:ZK=1
2390 PRINTCL$:IFAR$="99"THENGOTO2680
2400 FORAU=1TOW
2410 IFAR$=MID$(SP$(AU),33,1)THEN2430
2420 GOTO2460
2430 IFZK=1THENPRINTYE$;AU;TAB(5);CY$;MID$(SP$(AU),1,15);:ZK=0:GOTO2460
2440 IFAR$<>MID$(SP$(AU),33,1)THENZK=0:GOTO2460
2450 IFZK=0THENPRINTTAB(20);YE$;AU;CY$;TAB(25);MID$(SP$(AU),1,14):ZK=1
2460 NEXT
2470 POKE211,0
2480 PRINTRN$YE$" [194]ITTE GEBEN [211]IE DIE [206]UMMER VOR DER    "
2490 PRINTRN$" [194]EZEICHUNG WAS [211]IE GEGESSEN ODER      "
2500 PRINTRN$" GETRUNKEN HABEN EIN .                 "
2510 GOSUB4400
2520 PRINTCY$
2530 INPUT"[206]UMMER ";NR:PRINTCU$;TAB(20);:INPUT"[193]NZAHL ";AZ
2540 KA$=MID$(SP$(NR),17,3):KA=VAL(KA$)
2550 EI$=MID$(SP$(NR),21,3):EI=VAL(EI$)
2560 FE$=MID$(SP$(NR),25,3):FE=VAL(FE$)
2570 KO$=MID$(SP$(NR),29,3):KO=VAL(KO$)
2580 KV=KV+KA*AZ:EV=EV+EI*AZ
2590 FV=FV+FE*AZ:HV=HV+KO*AZ
2600 GOSUB4400:PRINTYE$CU$
2610 INPUT"[215]EITERE [193]RTEN = 1, [193]NDERES [199]EBIET = 2";XX
2620 IFXX=2THENGOTO2380
2630 PRINTCU$CU$"                                       "
2640 PRINTCU$CU$;SPC(39);CU$:GOTO2510
2650 REM **************************
2660 REM ***** AUSWERTUNGSAUSGABE *
2670 REM **************************
2680 PRINTF1$KL$CD$YE$
2690 PRINT"[201]HR [203]ALORIENBEDARF =";KB;"[212]AG"
2700 PRINT"[203]ALORIENVERBRAUCH  =";KV
2710 PRINT"[196]IFFERENZ          =";:DI=KB-KV:PRINTDI:PRINT
2720 PRINT"[201]HR [198]ETTBEGARF     =";FB;"[199]RAMM/[212]AG"
2730 PRINT"[198]ETTVERBRAUCH      =";FV
2740 PRINT"[196]IFFERENZ          =";:DI=FB-FV:PRINTDI:PRINT
2750 PRINT"[201]HR [203]OHL.[200]YD.[194]EDARF=";HB;" [199]RAMM/[212]AG"
2760 PRINT"[203]OHL.[200]YDR.[214]ERBR.   =";HV
2770 PRINT"[196]IFFERENZ          =";:DI=HB-HV:PRINTDI:PRINT
2780 PRINT"[201]HR [197]IWEISSBEDARF  =";EB;" [199]RAMM/[212]AG"
2790 PRINT"[197]IWEISSVERBRAUCH   =";EV
2800 PRINT"[196]IFFERENZ          =";:DI=EB-EV:PRINTDI:PRINT
2810 GOSUB4400
2820 PRINTRN$"[193]NFANG = 1, [197]NDE = 2 "
2830 X=18:Y=23:GOSUB4490:L=1:Z=1:R=1:GOSUB4500
2840 XX=VAL(E$)
2850 IFXX=2GOTO4370
2860 KV=0:EV=0:HV=0:FV=0:GOTO1830
2870 REM **************************
2880 REM ********* EINGABEAUSWAHL *
2890 REM **************************
2900 PRINTF1$S1$"[197]INGABE [193]USWAHL"S2$CD$CD$
2910 IFB=2THENPRINTF1$KL$CD$CD$
2920 PRINTCY$"[199]ETRAENKE     = 1  ";
2930 PRINT"[194]ROTARTEN     = 2"
2940 PRINT"[193]UFSTRICH     = 3  ";
2950 PRINT"[211]UPPEN        = 4"
2960 PRINT"[198]LEISCH       = 5  ";
2970 PRINT"[198]ISCH         = 6"
2980 PRINT"[199]EFLUEGEL     = 7  ";
2990 PRINT"[194]EILAGEN      = 8"
3000 PRINT"[199]EMUESE-[207]BST  = 9  ";
3010 PRINT"[211]AUCEN        = [193]"
3020 PRINT"[197]IERSPEISEN   = [194]  ";
3030 PRINT"[206]ACHTISCH     = [195]"
3040 PRINT"[215]URST         = [196]  ";
3050 PRINT"[199]EBAECK       = [197]"
3060 PRINT"[203]AESE         = [198]  ";
3070 PRINT"[203]UCHEN        = [199]"
3080 PRINT"[211]UESSIGKEITEN = [200]  ";
3090 IFB=2THENPRINT"[197]NDE          =99"
3100 IFB=2THENPRINTCD$YE$"[201]HRE [215]AHL [194]ITTE =>"CD$:GOTO3120
3110 PRINTCD$CD$YE$"   [193]RT [194]ITTE   =>"CD$
3120 GOSUB4400:X=13:Y=19:GOSUB4490:L=2:R=0:Z=0:GOSUB4500
3130 AR$=E$:IFAR$="99"THEN2680
3140 IFAR$=""THEN2760
3150 RETURN
3160 REM **************************
3170 REM *********** UNTERMENUE 2 *
3180 REM **************************
3190 PRINTF1$S1$"[203]ALORIEN-[211]ORT"S2$CD$CD$
3200 PRINTCD$CD$CY$"(1)     [211]ORT        [193]-[218]"CD$
3210 PRINT"(2)     [211]ORT NACH [203]ALORIEN"CD$
3220 PRINT"(3)     [211]ORT NACH [197]IWEISS"CD$
3230 PRINT"(4)     [211]ORT NACH [198]ETT"CD$
3240 PRINT"(5)     [211]ORT NACH [203]OH.[200]YDR."CD$
3250 PRINT"(6)     [197]NDE"CD$
3260 PRINTYE$RN$"[201]HRE [197]INGABE [194]ITTE"
3270 GOSUB4400:X=17:Y=21:GOSUB4490:L=1:R=1:Z=1:GOSUB4500
3280 EE=VAL(E$):IF(EE<1)OR(EE>6)THEN3190
3290 ONVAL(E$)GOTO3330,3690,3770,3820,3930,2250
3300 REM **************************
3310 REM ********* SORTIERROUTINE *
3320 REM **************************
3330 PRINTF1$S1$"[203]ALORIEN-[211]ORT"S2$CD$
3340 FORN=1TO500:NEXT
3350 L=INT(Q/2)+1:IFQ=0THENPRINTKV$:FORPP=1TO1500:NEXT:GOTO1830
3360 R=Q:PRINTHO$RD$CD$CD$CD$CD$CD$"[206]R.  ";RIGHT$("     "+STR$(ABS(R)),3)
3370 IFL>1THEN3440
3380 IFR<=1THEN3430
3390 H$=SP$(L)
3400 SP$(L)=SP$(R)
3410 SP$(R)=H$
3420 R=R-1
3430 GOTO3450
3440 L=L-1
3450 J=L
3460 I=2*J
3470 H$=SP$(J)
3480 IFI>RTHEN3600
3490 IFI>=RTHEN3540
3500 IFSP$(I)>=SP$(I+1)THEN3540
3510 I=I+1
3520 PRINTHO$YE$CD$CD$CD$CD$CD$;
3530 PRINT"[206]R. ";RIGHT$("   "+STR$(I),3):PRINTCD$CY$;SP$(I)
3540 IFI>RTHEN3600
3550 IFH$>=SP$(I)THEN3600
3560 SP$(J)=SP$(I)
3570 J=I
3580 I=2*J
3590 GOTO3490
3600 SP$(J)=H$
3610 IFR<>1THEN3370
3620 IFB=1THENRETURN
3630 GOTO2250
3640 REM **************************
3650 REM ** $ AUFTEILEN FUER SORT *
3660 REM **************************
3670 REM ***** KALORIENAUFTEILUNG *
3680 REM **************************
3690 B=1:E$=SE$:GOSUB2150
3700 FORT=1TOW:S$(W)=MID$(SP$(T),17,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16)
3710 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330
3720 FORT=1TOW:S$(W)=MID$(SP$(T),5,16)+MID$(SP$(T),1,4)
3730 SP$(T)=S$(W):NEXT:B=0:GOTO2250
3740 REM **************************
3750 REM ****** EIWEISSAUFTEILUNG *
3760 REM **************************
3770 B=1:E$=SE$:GOSUB2150
3780 FORT=1TOW:S$(W)=MID$(SP$(T),21,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16)
3790 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330
3800 FORT=1TOW:S$(W)=MID$(SP$(T),4,16)+"   "+MID$(SP$(T),1,4)
3810 SP$(T)=S$(W):NEXT:B=0:GOTO2250
3820 B=1:E$=SE$:GOSUB2150
3830 REM **************************
3840 REM ********* FETTAUFTEILUNG *
3850 REM **************************
3860 FORT=1TOW:S$(W)=MID$(SP$(T),25,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16)
3870 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330
3880 FORT=1TOW:S$(W)=MID$(SP$(T),4,16)+"       "+MID$(SP$(T),1,4)
3890 SP$(T)=S$(W):NEXT:B=0:GOTO2250
3900 REM **************************
3910 REM ****** HYDRATEAUFTEILUNG *
3920 REM **************************
3930 B=1:E$=SE$:GOSUB2150
3940 FORT=1TOW:S$(W)=MID$(SP$(T),29,3):S$(W)=S$(W)+" "+MID$(SP$(T),1,16)
3950 SP$(T)=S$(W):NEXT:SP$(W)=SP$(T):B=1:GOSUB3330
3960 FORT=1TOW:S$(W)=MID$(SP$(T),5,16)+"           "+MID$(SP$(T),1,4)
3970 SP$(T)=S$(W):NEXT:B=0:GOTO2250
3980 REM **************************
3990 REM ************* AUFLISTUNG *
4000 REM **************************
4010 PRINTF1$S1$"[193]UFLISTUNG"S2$S2$
4020 ZZ=0
4030 PRINTYE$"    [211]PEISE           [203]. [197]I. [198]T. [203]H. [193]RT     "
4040 IFQ=0THENPRINTKV$:FORKV=1TO1500:NEXT:GOTO1830
4050 FORL=1TOQ:IFL+X1>1000THENX1=0:GOTO1830
4060 PRINTRO$;RIGHT$("   "+STR$(L+X1),3);" ";:ZZ=ZZ+1
4070 PRINTCY$;SP$(L+X1);RO$:IFZZ=15THENZZ=0:GOTO4090
4080 GOTO4120
4090 PRINT:PRINTWT$;WE$:POKE198,0:WAIT198,1
4100 IFPEEK(203)=14THENX1=0:POKE198,0:GOTO1830
4110 PRINTCL$YE$"    [211]PEISE           [203]. [197]I. [198]T. [203]H. [193]RT     "
4120 NEXT
4130 PRINT:PRINTWT$;WE$:POKE198,0:WAIT198,1
4140 IFPEEK(203)=14THENX1=0:POKE198,0:  GOTO1830
4150 POKE198,0:GOTO1830
4160 REM **************************
4170 REM ****** STRINGZUWEISUNGEN *
4180 REM **************************
4190 CD$=CHR$(017):CU$=CHR$(145)
4200 CH$=CHR$(029):CT$=CHR$(157)
4210 RN$=CHR$(018):RF$=CHR$(146)
4220 HO$=CHR$(019):CL$=CHR$(147)
4230 RD$=CHR$(028):GR$=CHR$(030):DE$=CT$+"  "+CT$+CT$
4240 CY$=CHR$(159):RO$=CHR$(031):WS$=CHR$(5):BL$=CHR$(175)
4250 KL$="          [203]ALORIENAUSWERTUNG          "
4260 KS$=CL$+CD$+CD$+RD$+RN$+" "+KL$+" "+CD$
4270 F1$=CL$+RD$+RN$
4280 WT$=GR$+RN$+"            [215]EITER MIT [211]PACE            "
4290 WE$=GR$+RN$+"               [197][206][196][197] = [[197]]               "
4300 S1$="        ":S2$="           "
4310 CP$=CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$+CD$
4320 FU$=CL$+YE$+RN$+CP$+S1$+"[211] [208] [197] [201] [195] [200] [197] [210]  [214] [207] [204] [204]"+S1$
4330 KD$=CL$+YE$+RN$+CP$+"[203]EINE [196]ATEI UNTER DIESEM [206]AMEN VORHANDEN"
4340 C$(1)=WS$+BL$+CT$+CY$:C$(2)=RD$+BL$+CT$+CY$
4350 KV$=CL$+YE$+RN$+CP$+"        [203]EINE [196]ATEN VORHANDEN!        "
4360 RETURN
4370 REM **************************
4380 REM ************ TON-ROUTINE *
4390 REM **************************
4400 SI=54272
4410 POKESI+24,15:POKESI+7,240:POKESI+8,10:POKESI+13,11
4420 POKESI+24,15:POKESI+0,111:POKESI+1,34:POKESI+6,13
4430 POKESI+11,17:POKESI+4,16
4440 POKESI+4,17:POKESI+4,16
4450 RETURN
4460 REM **************************
4470 REM ************ GET-ROUTINE *
4480 REM **************************
4490 PRINTHO$;:FORXX=1TOX:PRINT:NEXT:PRINTSPC(Y):FORI=1TO150:NEXT:RETURN
4500 E$="":X=1
4510 PRINTC$(X);:Y=Y+1:IFY>10THENY=1:X=X+1:IFX>2THENX=1
4520 GETY$:IFY$=""GOTO4510
4530 Y=ASC(Y$):IFY=13ANDLEN(E$)>R-1THENPRINT"  ":RETURN
4540 IFY$=CHR$(20)ANDLEN(E$)>0THENE$=LEFT$(E$,LEN(E$)-1):PRINTDE$;:GOTO4520
4550 IFZ=0THENIFY<32ORY>127ANDY<160GOTO4520
4560 IFZ=1THENIFY<32ORY>32THENIFY<46ORY>57GOTO4520
4570 IFLEN(E$)>L-1GOTO4510
4580 E$=E$+Y$:PRINTY$;:GOTO4510
4590 R=1:L=8:N=0:GOSUB4490
4600 POKE198,0:POKE53272,21:PRINTCL$:END
4610 REM KALORIENTABELLE ========64
4620 REM 38911 BYTES MEMORY    ====
4630 REM 14522 BYTES PROGRAM   ====
4640 REM 00266 BYTES VARIABLES ====
4650 REM 03370 BYTES ARRAYS    ====
4660 REM 00657 BYTES STRINGS   ====
4670 REM 20096 BYTES FREE (0)  ====
4680 REM ==========================